home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
os2
/
zoc205.zip
/
INSTALL.FIL
/
SCRIPT
/
RXSAMPLE
/
MANUAL
/
ZOCLASTL.RX
< prev
next >
Wrap
Text File
|
1994-11-03
|
1KB
|
54 lines
/* REXX script to dial (and retry) a phone number */
/* Ask user what number should be dialled */
'ASK "What number shall I dial?"'
/* dial the number if it was non empty and if user
did not press the ESC key */
IF ZOCRESULT()\="" & ZOCRESULT()\="##CANCEL##" THEN
DO
/* redial 5 times max. */
DO TRY=1 to 5
SAY "Try #" TRY
'DIAL "' || ZOCRESULT() || '"'
/* wait for a reply within 60 seconds */
'TIMEOUT 60'
/* scan the next 6 lines for something interesting */
DO LINE=1 TO 6
/* receive next line of text */
'GETLINE'
/* if timed out, end script with error */
IF RC=640 THEN SIGNAL ERROR
/* if BUSY was received, try again (leave inner loop) */
IF ZOCLASTLINE()="BUSY" THEN LEAVE LINE
/* if NO CARRIER was received, end with error */
IF ZOCLASTLINE()="NO CARRIER" THEN
DO
SAY "Error!"
LEAVE TRY /* leave outer loop */
END
/* if CARRIER or CONNECT was received, everything's ok */
IF LEFT(ZOCLASTLINE(),7)="CONNECT" | ,
LEFT(ZOCLASTLINE(),7)="CARRIER" THEN
DO
'BEEP 3' /* page user */
LEAVE TRY /* leave outer loop */
END
END LINE
'DELAY 30' /* wait 30 seconds to dial next */
END TRY
END /* IF */